function [discount,beca,stipend] = u11_2012(math,lang,demrecode,score,region)
%% Universidad de Chile
lm=(math+lang)/2;
discount=zeros(size(lm,1),1);
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Becas FEN
if demrecode==11042
    discount=1*(score>=780)+0.33*((score>=750).*(score<780))+0.33*((score<750).*(score<780).*(score>=735).*(region~=13));
elseif demrecode==11041
    discount=1*(score>=730)+0.33*((score>=705).*(score<730))+0.33*((score<705).*(score<730).*(score>=695).*(region~=13));
end

%BVP
if demrecode==11028 || demrecode==11077
    [discount,stipend]=bvp(lm);
end

end
